home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Tele / M / MultiLoadV2.0.cpt / MultiLoadV2.0 < prev   
Encoding:
Text File  |  1988-03-16  |  1.6 KB  |  96 lines  |  [TEXT/MACA]
  1. USERCLOSE 1
  2. USERCLOSE 2
  3. (The following pathname must be changed to your particular disk & file name.)
  4. USEROPENI 1,HD-20:My Folders:Numbers TEXT File
  5. IF ERROR JUMPTO ERROUTINE
  6. ERASE A$
  7. USERREAD 1,A$
  8. IF ERROR JUMPTO NOFIRST
  9. EMPTY A$
  10. IF YES JUMPTO NOFIRST
  11. TYPE 6^M
  12. JUMPTO START
  13. :ANOTHER
  14. TYPE Y^M
  15. :START
  16. ONPANIC JUMPTO NOMENU
  17. PANICAFTER 10
  18. PROMPT file?
  19. PAUSE
  20. TYPE A$
  21. TYPE ^M
  22. ALERT1 File not in this Lib/JUMPTO NUMNOT
  23. PROMPT <D>ownload
  24. PAUSE
  25. TYPE D^M
  26. ALERT1 Capture File **/JUMPTO GETTEXT
  27. PROMPT receive file.
  28. GOSUB DONAME
  29. PAUSE
  30. RECX B$
  31. PROMPT <RETURN>?
  32. PAUSE
  33. TYPE ^M
  34. :MORE
  35. PROMPT file (Y/N)?
  36. :MOREPLUS
  37. PAUSE
  38. USERREAD 1,A$
  39. IF ERROR JUMPTO ALLDONE
  40. EMPTY A$
  41. IF NO JUMPTO ANOTHER
  42. :ALLDONE
  43. TYPE N^M
  44. PROMPT ?
  45. PAUSE
  46. (The line below that reads: TYPE BYE^M
  47. (must be deleted if you don't want logged off GEnie after the)
  48. (downloads are completed.)
  49. TYPE BYE^M
  50. END
  51. :GETTEXT
  52. GOSUB DONAME
  53. PAUSE 120
  54. RECA B$
  55. TYPE ^M
  56. :TEXT2
  57. PROMPT Download complete.  
  58. PANICAFTER 1
  59. ONPANIC JUMPTO TEXT2
  60. PROMPT rn off Capture File.
  61. CLOSE
  62. JUMPTO MORE
  63. :DONAME
  64. ERASE B$
  65. CONCAT B$,A$
  66. CONCAT B$, File
  67. RETURN
  68. :ERROUTINE
  69. COPYINTO X$,The pathname for your Numbers TEXT file was bad!
  70. :ERPLUS
  71. ERASE Y$
  72. COPYINTO Z$,MultiLoad will be aborted!
  73. QUERY2
  74. END
  75. :NOFIRST
  76. COPYINTO X$,The first line in the Numbers TEXT file was blank.
  77. JUMPTO ERPLUS
  78. :NUMNOT
  79. GOSUB DONAME
  80. PAUSE 120
  81. RECA B$
  82. CLOSE
  83. USEROPENA 2,B$
  84. USERWRITE 2,File number 
  85. USERWRITE 2,A$
  86. USERWRITE 2, was not available for download!
  87. USERWRCR 2
  88. JUMPTO MOREPLUS
  89. USERCLOSE 2
  90. :NOMENU
  91. COPYINTO X$,You may be executing this Procedure from the wrong menu.
  92. COPYINTO Y$,Make sure you are in a Software Library Menu and try again!
  93. COPYINTO Z$,MultiLoad will be aborted!
  94. QUERY2
  95. END
  96.